home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Frameworks / Grant's CGI Framework 1.0b12 / Util / StringUtil.c < prev    next >
Text File  |  1995-12-09  |  1KB  |  78 lines
  1. /*****
  2.  *
  3.  *    StringUtil.c
  4.  *
  5.  *    This is a support file for "Grant's CGI Framework".
  6.  *    Please see the license agreement that accompanies the distribution package
  7.  *    for licensing details.
  8.  *
  9.  *    Copyright ©1995 by Grant Neufeld
  10.  *    grant@acm.com
  11.  *    http://arpp1.carleton.ca/grant/
  12.  *
  13.  *****/
  14.  
  15. #include <string.h>
  16.  
  17. #include "compiler_stuff.h"
  18.  
  19. #include "StringUtil.h"
  20.  
  21.  
  22. /***  FUNCTIONS  ***/
  23.  
  24. /* Copy pascal format srcStr to the destStr */
  25. void
  26. StringPascalCopy ( char *srcStr, char *destStr )
  27. {
  28.     BlockMove ( srcStr, destStr, (srcStr[nil]) + 1 );
  29. } /* StringPascalCopy */
  30.  
  31.  
  32. /* count the occurances of theChar in theString */
  33. long
  34. StringCountChar ( char *theString, char theChar )
  35. {
  36.     long    total;
  37.     char *    tempStr;
  38.     
  39.     total    = nil;
  40.     tempStr    = theString;
  41.     
  42.     do
  43.     {
  44.         tempStr = StringChar ( tempStr, theChar );
  45.         
  46.         if ( (tempStr != nil) && (*tempStr != nil) )
  47.         {
  48.             tempStr++;
  49.             total++;
  50.         }
  51.     } while ( (tempStr != nil) && (*tempStr != nil) );
  52.     
  53.     return total;
  54. } /* strcountchr */
  55.  
  56.  
  57. /* working version of strchr for TPM */
  58. #if kCompiling_For_Symantec
  59. char *
  60. StringChar ( const char *theString, unsigned char theChar )
  61. {
  62.     do
  63.     {
  64.         if ( *theString == theChar )
  65.         {
  66.             /* found the character, return a pointer to it */
  67.             return (char *)theString;
  68.         }
  69.         theString++;
  70.     } while ( *theString != nil );
  71.     
  72.     /* didn't find the character */
  73.     return nil;
  74. } /* StringChar */
  75. #endif
  76.  
  77.  
  78. /***  EOF  ***/